home *** CD-ROM | disk | FTP | other *** search
/ Amiga Packmags / NewsFlash - Issue 03 (1989)(UGA - 17-Bit Software)[a].zip / NewsFlash - Issue 03 (1989)(UGA - 17-Bit Software)[a].adf / sources / loader.S < prev    next >
Text File  |  1988-01-19  |  444b  |  29 lines
  1. openlib = -408
  2. closelib= -414
  3. execbase=  4
  4. Execute=  -222
  5. Opendoslibrary:
  6.         move.l     execbase,a6
  7.         lea    dosname,a1
  8.         jsr    openlib(a6)
  9.         move.l  d0,dosbase
  10. executer:    move.l    #command2,d1
  11.         move.l    dosbase,a6
  12.         clr.l    d2
  13.         move.l    windowhd,d3
  14.         jsr    execute(a6)
  15. Closelibrary:    move.l    execbase,a6
  16.         move.l    dosbase,a1
  17.         jsr    closelib(a6)
  18.         rts
  19. Command1:
  20.         dc.b    "intro",00
  21.         even
  22.  
  23. dosname:    dc.b"dos.library",0
  24. even
  25. dosbase:    dc.l 0
  26. even
  27. windowhd:    dc.l 0
  28. even
  29.